home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 65 / 065.d81 / leg format boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  65 lines
  1. 100 gosub550:print"[147][155][146][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223]";
  2. 110 print"{$7f}{$7f}[158][176]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[174][155]{$7f}{$7f}";
  3. 120 print"{$7f}{$7f}[158]{$7d}   [159]This program will convert a    [158]{$7d}[155]{$7f}{$7f}";
  4. 130 print"[152][169][169][158]{$7d}[159]file into 'LEG' format which will [158]{$7d}[152][169][169]";
  5. 140 print"[169][169][158]{$7d}[159]boot much faster using the FAST   [158]{$7d}[152][169][169]";
  6. 150 print"[169][169][158]{$7d}[159]BOOT[160]GENERATOR.  Your program file[158]{$7d}[152][169][169]";
  7. 160 print"[155]{$7f}{$7f}[158]{$7d}[159]will be converted into a USR file [158]{$7d}[155]{$7f}{$7f}";
  8. 170 print"{$7f}{$7f}[158]{$7d}[159]that can only be LOADed by the    [158]{$7d}[155]{$7f}{$7f}";
  9. 180 print"{$7f}{$7f}[158]{$7d}[159]FAST[160]BOOT[160]GENERATOR.              [158]{$7d}[155]{$7f}{$7f}";
  10. 190 print"[152][169][169][158][173]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[189][152][169][169]";
  11. 200 print"[169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169]";
  12. 210 print"[169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169]";
  13. 220 print"[155]{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}";
  14. 230 print"{$7f}{$7f}[158][176]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[174][155]{$7f}{$7f}";
  15. 240 print"{$7f}{$7f}[158]{$7d}   [159]Before using this program, you [158]{$7d}[155]{$7f}{$7f}";
  16. 250 print"[152][169][169][158]{$7d}[159]must first create a boot disk that[158]{$7d}[152][169][169]";
  17. 260 print"[169][169][158]{$7d}[159]is already fitted with an auto    [158]{$7d}[152][169][169]";
  18. 270 print"[169][169][158]{$7d}[159]booter.  You can't file copy an   [158]{$7d}[152][169][169]";
  19. 280 print"[155]{$7f}{$7f}[158]{$7d}[159]LEG file.  It must be written to  [158]{$7d}[155]{$7f}{$7f}";
  20. 290 print"{$7f}{$7f}[158]{$7d}[159]your master disk by this utility. [158]{$7d}[155]{$7f}{$7f}";
  21. 300 print"{$7f}{$7f}[158]{$7d}[159]When this utility prompts for a   [158]{$7d}[155]{$7f}{$7f}";
  22. 310 print"[151][169][169][158]{$7d}[159]work disk, insert your boot disk. [158]{$7d}[151][169][169]";
  23. 320 print"[169][169][158][173]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[189][151][169][169]";
  24. 330 print"[169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169]";
  25. 340 print"             PRESS[160]A[160]KEY... ";
  26. 350 print"";:poke198,0:wait198,1:poke198,0
  27. 360 print"[147][158][146][176]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[174]";
  28. 370 print"{$7d}[156][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][158]{$7d}";
  29. 380 print"{$7d}[156]          FAST[160]FILE[160]CONVERTER         [158][146]{$7d}";
  30. 390 print"{$7d}[156][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][158]{$7d}";
  31. 400 print"[173]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[189]";
  32. 410 print"[159][212]his program does not returnto [204][207][193][196][211][212][193][210]
  33. 420 [153]"   lenontinue or return to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)?
  34. 430 printtab(16)" ([195]/[204]) "
  35. 440 geta$:ifa$<>"c"anda$<>"l"then440
  36. 450 ifa$="l"then500
  37. 460 print"":fori=1to5:print"                                          ":next
  38. 470 fori=217to242:pokei,peek(i)or128:next
  39. 480 print"[204]oading...";
  40. 490 poke46,14:poke48,13:poke50,13:poke52,160:load"legit",8
  41. 500 a$="hello connect":open15,8,15,"r0:"+a$+"="+a$:input#15,er:close15
  42. 510 if er<>63 then print"[147]":end
  43. 520 q$=chr$(34):poke646,peek(53281):print"[147]"
  44. 530 print"load"q$a$q$",8"
  45. 540 print"run":poke631,13:poke632,13:poke198,2:end
  46. 550 gosub560:poke198,0:wait198,1:return
  47. 560 poke53281,0:poke53280,0:print"[147][158]"
  48. 570 fori=1to11:print"[169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223]";:next
  49. 580 fori=1to11:print"[152][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][151][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169]";:next:print"[158]"
  50. 590 fori=217to242:pokei,peek(i)or128:next:poke214,5
  51. 600 print:fori=1to10:printtab(4)"[221][152]                              [146][158][221]
  52. 610 [130]:[151]214,6:[151]211,4:[158]58732
  53. 620 [153]"ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^"
  54. 630 [153][163]5)"listnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewsys"
  55. 640 [151]214,16:[151]211,4:[158]58732
  56. 650 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  57. 660 [153][163]5)"ononpokefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefresys":[151]214,8:[153]
  58. 670 a$[178]"ascatn(NULL)(NULL)closeascright$(NULL)valcloselen(NULL)(NULL)(NULL)val(NULL)(NULL)val(NULL)":[141]730
  59. 680 a$[178]"by (NULL)homas lenzarnecki":[141]730
  60. 690 a$[178]"(NULL)(NULL)peek(NULL)right$(NULL)left$valstr$close(NULL)(NULL)close(NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)close#close65":[141]730
  61. 700 a$[178]"(NULL)ubscriptions 1-800-831-2694":[141]730
  62. 710 a$[178]"(len) 1989 (NULL)homas lenzarnecki":[141]730
  63. 720 [151]214,23:[153]:[153][163]12)"  (NULL)ress a key... ":[142]
  64. 730 [153][166]20[171][195](a$)[173]2)"print#"a$:[142]
  65.